*****************************************************************************************************************************************************
* PROJECT: 		Exposure to the COVID-19 Stock Market Crash and its Effect on Household Expectations
* DATE: 		Nov 2020
* CONTENT: 		FIGURES
* AUTHORS: 		Tobin Hanspal, Johannes Wohlfart, Anni Weber
*****************************************************************************************************************************************************

		clear all
		set scheme lean2
		global pm = char(177)
		set more off
		gl date = c(current_date)
		graph set window fontface "cmr10"
		
		
* set cd as /Replication_files_HanspalWeberWohlfart2020/

*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~						
** FIGURE A12
*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~	
							
use data/processed/data_1, clear 		

replace expec_retirearly=100*expec_retirearly
replace expec_retirlater = 100* expec_retirlater

label define jobloss 	1 "Lost job during Q1/2020" ///
						0 "Did not lose job"

label values joblos jobloss


	graph bar expec_retirearly  if self_empl==1 | employed==1, ///
	over(agecat, relabel(1 "18-24" 2 "25-34" 3 "35-44" 4 "45-54" 5 "55-64" 6 "65+") ///
	label(labsize(small))) b1title() bargap(0)  /// 
	over(jobloss, label(labsize(small))) ///
	ylabel(, nogrid) ///
	ytitle("% expect to retire early", size(small)) ///
	graphregion(color(white)) bgcolor(white) saving(Figures/CGW1.gph, replace)

	
	graph bar expec_retirlater  if self_empl==1 | employed==1, ///
	over(agecat, relabel(1 "18-24" 2 "25-34" 3 "35-44" 4 "45-54" 5 "55-64" 6 "65+") ///
	label(labsize(small))) b1title() bargap(0)  /// 
	over(jobloss, label(labsize(small))) ///
	ylabel(, nogrid) ///
	ytitle("% expect to retire later", size(small)) ///
	graphregion(color(white)) bgcolor(white) saving(Figures/CGW2.gph, replace)

	graph combine Figures/CGW2.gph Figures/CGW1.gph, col(1)
	
	graph export Figures/FigureA12.pdf, as(pdf)  fontface("cmr10") replace	
	graph export Figures/FigureA12.png, width(1600) replace	
	
capture erase Figures/CGW1.gph
capture erase Figures/CGW2.gph

	
